FOR EACH ptp_det EXCLUSIVE WHERE ptp_part BEGINS "" AND ptp_pm_code = "p" AND ptp__dec02 = 0,
    EACH pt_mstr NO-LOCK WHERE ptp_part = pt_part:
    
    FIND FIRST pc_mstr WHERE pc_part = ptp_part NO-LOCK NO-ERROR.
    IF AVAILABLE pc_mstr THEN
       FIND FIRST ad_mstr WHERE ad_addr = pc_list NO-LOCK NO-ERROR.
       IF AVAILABLE ad_mstr THEN DO:
       
          DISP ad_tax_usage ad_addr pc_start.
          IF ad_tax_usage = "V17" THEN
             ASSIGN ptp__dec02 = 0.17.
          IF ad_tax_usage = "V06" THEN
             ASSIGN ptp__dec02 = 0.06.
          IF ad_tax_usage = "V04" THEN
             ASSIGN ptp__dec02 = 0.04.

       END.
    DISP ptp_site FORMAT "X(6)"
        ptp_part 
        pt_desc1 
        ptp_pm_code 
        ptp__dec02 
        pt_added
        pt_userid
    WITH WIDTH 150.

END.
